program EquSolver;

{$APPTYPE CONSOLE}
type
solving = class
  a, b, c : integer;
  procedure solve;
end;
{ solving }

procedure solving.solve;
var
  d : integer;
  x1, x2 : real;
begin
  if (a=0) then
  begin
    if (b=0) then
    begin
      if (c=0) then
      begin
        writeln('This equation is not linear and has infinitely many solutions');
      end
      else
      begin
        writeln('This equation is not linear and has no solutions');
      end;
    end
    else
    begin
      writeln('This equation is not linear and has one solution');
      x1 := -c/b;
      writeln(x1:0:3);
    end;
  end
  else
  begin
    d := b*b-4*a*c;
    if (d < 0) then
    begin
      writeln('The equpation has no solutions');
      readln;
    end;
    x1 := (-b + sqrt(d))/2*a;
    x2 := (-b - sqrt(d))/2*a;
    if (d=0) then
    begin
      writeln(x1:0:3);
    end;
    if (d>0) then
    begin
      writeln(x1:0:3, x2:0:3);
    end;
  end;
end;
var
s : solving;
begin
  s := solving.Create;
  readln(s.a, s.b, s.c);
  s.solve;
  readln;
end.
